home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mathfl / mf_about.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  2.9 KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form about_form 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "About MathFlash"
  5.    ClientHeight    =   5535
  6.    ClientLeft      =   1620
  7.    ClientTop       =   1500
  8.    ClientWidth     =   7035
  9.    Height          =   5940
  10.    Icon            =   MF_ABOUT.FRX:0000
  11.    Left            =   1560
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5535
  14.    ScaleWidth      =   7035
  15.    Top             =   1155
  16.    Width           =   7155
  17.    Begin PictureBox Picture1 
  18.       BorderStyle     =   0  'None
  19.       Height          =   495
  20.       Left            =   4200
  21.       Picture         =   MF_ABOUT.FRX:0302
  22.       ScaleHeight     =   495
  23.       ScaleWidth      =   495
  24.       TabIndex        =   3
  25.       Top             =   120
  26.       Width           =   495
  27.    End
  28.    Begin CommandButton about_exit 
  29.       Caption         =   "Exit"
  30.       Height          =   375
  31.       Left            =   3000
  32.       TabIndex        =   1
  33.       Top             =   5040
  34.       Width           =   1095
  35.    End
  36.    Begin Label Label1 
  37.       Caption         =   "Label1"
  38.       Height          =   615
  39.       Left            =   240
  40.       TabIndex        =   2
  41.       Top             =   120
  42.       Width           =   3495
  43.    End
  44.    Begin Label about_text 
  45.       BackColor       =   &H00FFFFFF&
  46.       Caption         =   " "
  47.       Height          =   3975
  48.       Left            =   360
  49.       TabIndex        =   0
  50.       Top             =   960
  51.       Width           =   6375
  52.    End
  53. Sub about_exit_Click ()
  54. Unload Me
  55. End Sub
  56. Sub form_load ()
  57. nl$ = Chr$(13) + Chr$(10)
  58. msg1$ = "MathFlash ver 1.00" + nl$
  59. msg1$ = msg1$ + "Brad Kaufman  March, 1993" + nl$
  60. msg1$ = msg1$ + "Shareware" + nl$
  61. msg$ = msg$ + nl$
  62. msg$ = msg$ + "Registered users will receive the individual student tracking module" + nl$
  63. msg$ = msg$ + "which tracks a students progress over time.  Graphs and reports  " + nl$
  64. msg$ = msg$ + "of each individual students percentage correct responses are available." + nl$
  65. msg$ = msg$ + "This module is highly recommended for use of Mathflash in educational institutions." + nl$
  66. msg$ = msg$ + nl$
  67. msg$ = msg$ + "MathFlash was created to provide parents and educational " + nl$
  68. msg$ = msg$ + "institutions affordable, Windows based software to promote " + nl$
  69. msg$ = msg$ + "child development.  If you find this software useful and would like" + nl$
  70. msg$ = msg$ + "to see its development continue (and receive the student tracking " + nl$
  71. msg$ = msg$ + "module) please send $15 to :" + nl$
  72. msg$ = msg$ + nl$
  73. msg$ = msg$ + "     Brad Kaufman" + nl$
  74. msg$ = msg$ + "     1912 Stepping Stone Trail" + nl$
  75. msg$ = msg$ + "     Edmond, OK  73013" + nl$
  76. msg$ = msg$ + nl$
  77. msg$ = msg$ + "Compuserve ID : 76330,1156"
  78. msg$ = msg$ + nl$
  79. msg$ = msg$ + "(comments welcome)"
  80. Rem picture1.Picture = LoadPicture("mathflsh.ico")
  81. label1.Caption = msg1$
  82. about_text.Caption = msg$
  83. End Sub
  84.